home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Development Platforms / Macintosh Common Lisp Related / interfaces / PInterface Translator / patches / printtraps.patch < prev    next >
Encoding:
Text File  |  1993-09-16  |  1.0 KB  |  53 lines  |  [TEXT/CCL2]
  1. (defrecord TPrStl 
  2.    (wDev :signed-integer)
  3.    (iPageV :signed-integer)
  4.    (iPageH :signed-integer)
  5.    (bPort :signed-byte)
  6.    (filler1 :signed-byte) ; for alignment
  7.    (filler2 :signed-byte) ; for the byte itself
  8.    (feed :unsigned-byte)
  9.    )
  10.  
  11. (defrecord TPrXInfo 
  12.    (iRowBytes :signed-integer)
  13.    (iBandV :signed-integer)
  14.    (iBandH :signed-integer)
  15.    (iDevBytes :signed-integer)
  16.    (iBands :signed-integer)
  17.    (bPatScale :signed-byte)
  18.    (bUlThick :signed-byte)
  19.    (bUlOffset :signed-byte)
  20.    (bUlShadow :signed-byte)
  21.  
  22.    (filler1 :signed-byte)
  23.    (scan :unsigned-byte)
  24.    (bXInfoX :signed-byte)
  25.    )
  26.  
  27. (defrecord TPrFlag1
  28.   (flags :unsigned-integer))
  29.  
  30. (defrecord (TWord :handle) 
  31.   (:variant 
  32.    
  33.    ((c1 :character)
  34.     (c0 :character)
  35.     )
  36.    
  37.    ((b1 :signed-byte)
  38.     (b0 :signed-byte)
  39.     )
  40.    
  41.    ((usb1 :unsigned-byte)
  42.     (usb0 :unsigned-byte)
  43.     )
  44.    
  45.    ((n3 :unsigned-byte)
  46.     (n2 :unsigned-byte)
  47.     (n1 :unsigned-byte)
  48.     (n0 :unsigned-byte)
  49.     )
  50.    
  51.    ((flags :unsigned-integer))
  52.    ((i0 :signed-integer))
  53.    ))